home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
t3_1
/
xlib.lha
/
xlib
/
xrectangle.mln
< prev
next >
Wrap
Text File
|
1990-06-07
|
708b
|
28 lines
;Beginning compilation on /u/kranz/xlib/xrectangle.t
MAKE-XRECTANGLE
XRECTANGLE-X
XRECTANGLE-X!
XRECTANGLE-Y
XRECTANGLE-Y!
XRECTANGLE-WIDTH
XRECTANGLE-WIDTH!
XRECTANGLE-HEIGHT
XRECTANGLE-HEIGHT!
(VARIABLES
FREE (CHK-XRECTANGLEP MAKE-BYTEV)
EARLY-BOUND (SET-MREF-16-U! MREF-16-U SET-MREF-16-S! MREF-16-S)
DEFINED (MAKE-XRECTANGLE XRECTANGLE-X XRECTANGLE-X! XRECTANGLE-Y
XRECTANGLE-Y! XRECTANGLE-WIDTH XRECTANGLE-WIDTH! XRECTANGLE-HEIGHT
XRECTANGLE-HEIGHT!)
LSET ()
SET ()
ERROR ()
INTEGRATED (CONS)
LOCAL ()
UNREFERENCED (MAKE-XRECTANGLE XRECTANGLE-X XRECTANGLE-X! XRECTANGLE-Y
XRECTANGLE-Y! XRECTANGLE-WIDTH XRECTANGLE-WIDTH! XRECTANGLE-HEIGHT
XRECTANGLE-HEIGHT!))
; assembled 1052 bytes